home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d20 / fddev202.arc / PASCAL.ARC / SREQ.INC < prev    next >
Text File  |  1991-10-01  |  4KB  |  74 lines

  1. (*
  2. **  SReq.Inc (FrontDoor)
  3. **
  4. **  Structures of file created during an inbound service request
  5. **
  6. **  Copyright 1991 Joaquim H. Homrighausen. All rights reserved
  7. **
  8. **  Last revised: 91-10-02
  9. *)
  10.  
  11. (*
  12. **  Nodelist capability bit values
  13. *)
  14. CONST
  15.   CMFLAG    = $00000002;                                            (* "CM" *)
  16.   MOFLAG    = $00000004;                                            (* "MO" *)
  17.   HSTFLAG   = $00000008;                                           (* "HST" *)
  18.   H96FLAG   = $00000010;                                           (* "H96" *)
  19.   PEPFLAG   = $00000020;                                           (* "PEP" *)
  20.   MAXFLAG   = $00000040;                                           (* "MAX" *)
  21.   XXFLAG    = $00000080;                                            (* "XX" *)
  22.   XBFLAG    = $00000100;                                            (* "XB" *)
  23.   XRFLAG    = $00000200;                                            (* "XR" *)
  24.   XPFLAG    = $00000400;                                            (* "XP" *)
  25.   XWFLAG    = $00000800;                                            (* "XW" *)
  26.   MNPFLAG   = $00001000;                                           (* "MNP" *)
  27.   V29FLAG   = $00002000;                                           (* "V29" *)
  28.   V32FLAG   = $00004000;                                           (* "V32" *)
  29.   V33FLAG   = $00008000;                                           (* "V33" *)
  30.   V34FLAG   = $00010000;                                           (* "V34" *)
  31.   V42FLAG   = $00020000;                                           (* "V42" *)
  32.   XCFLAG    = $00040000;                                            (* "XC" *)
  33.   XAFLAG    = $00080000;                                            (* "XA" *)
  34.   V42bFLAG  = $00100000;                                          (* "V42B" *)
  35.   V32bFLAG  = $00200000;                                          (* "V32B" *)
  36.   CSPFLAG   = $00400000;                                           (* "CSP" *)
  37.  
  38.  
  39. (*
  40. **  The resulting file is written as:
  41. **
  42. **  <_InfoRec>                  <See below>
  43. **  <NumValidEntriesInIDList>   <16-bit integer>
  44. **  <_RemoteID * 20>            <See below>
  45. *)
  46. TYPE
  47.   _RemoteID = RECORD
  48.     Zone,                                                            (* AKA *)
  49.     Net,
  50.     Node,
  51.     Point   : Word;
  52.     Denied  : Boolean;                  (* Whether "DENY" is applied to AKA *)
  53.   End;
  54.  
  55.   _InfoRec  = RECORD
  56.     Name,                                                    (* System name *)
  57.     Operator: string[80];                                (* System operator *)
  58.     Location: string[40];                                (* System location *)
  59.     Phone   : string[26];                  (* System telephone number (raw) *)
  60.     Domain  : string[29];                
  61.     Baud    : word;                          (* Maximum baud rate of system *)
  62.     Flags   : string[51];                  (* Nodelist flags (as presented) *)
  63.     Zone,                    (* Primary AKA, same as first _RemoteID record *)
  64.     Net,
  65.     Node,
  66.     Point   : word;                      
  67.     Cap     : longint;             (* Nodelist flags (as found in Nodelist) *)
  68.     TrxNum  : string[10];                             (* Transaction number *)
  69.     SerNum  : string[31];                                  (* Serial number *)
  70.     Password: string[17];                         (* Session level password *)
  71.   End;
  72.  
  73. (* end of file "SReq.Inc" *)
  74.